home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / pleas / ole / visio / search / visiosr.bas < prev    next >
Encoding:
BASIC Source File  |  1994-05-18  |  1.2 KB  |  38 lines
  1. '
  2. '   Search / Replace Add-on for Visio
  3. '
  4. '   The meat of this Add-on is in the frmSearchReplace form
  5. '   in the Form_Load, cmdOk_Click, and General_DoSearch
  6. '   subroutines.
  7. '
  8. '   Copyright (c) 1993 by Dennis K. Fitzgerald
  9. '
  10. '
  11. '   Global Visio object pointers
  12. '
  13. Global appVisio As object    'Visio Application
  14. Global doc As object         'Current document
  15. Global PageList As object    'Page List
  16. Global CurPage As object     'Single Page
  17. '
  18. Global CurWin As object      'Current Visio Window
  19. Global SelList As object     'Selection List
  20. '
  21. Global ShapeList As object   'List of shapes
  22. Global CurShape As object    'Single Visio shape
  23. Global CurCell As object     'Single ShapeSheet Cell
  24. '
  25. '   Global variables
  26. '
  27. Global ScopeSelection        'Scope Selection Index
  28.                              '  0 = Selection
  29.                              '  1 = Current Page
  30.                              '  2 = All pages
  31. Global FindMode              'Response to Confirmation Form
  32. Global Const srSkip = 0      '  0 = skip
  33. Global Const srDoOne = 1     '  1 = Do current one
  34. Global Const srDoAll = 2     '  2 = Do all w/o confirm
  35. '
  36. Global CurSize As Variant    'Text Font Size
  37.  
  38.